home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / HARDWARE.SWG / 0010_Activate TURBO Speed.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  1KB  |  43 lines
  1. { Does anyone out there know how to set the Software Turbo Speed on Mother
  2.  boards without hitting the Turbo Switch or the <Ctrl> <Alt> <-> key to
  3.  slow the system and or Speed it up again? Thanks...
  4. }
  5.  
  6. Program speed;
  7. Uses Dos,Crt;
  8.  
  9. Procedure do_speed(mode : String);
  10. Var
  11.  reg : Registers;
  12.  oldmem : Byte;
  13.  
  14. begin
  15.  oldmem := mem[$40:$17];
  16.  if UpCase(mode[1]) = 'N' then
  17.  begin
  18.   reg.al := 74;
  19.   Writeln('Speed set to NorMAL MODE');
  20.  end else
  21.  begin
  22.   reg.al := 78;
  23.   Writeln('Speed set to TURBO MODE');
  24.  end;
  25.  mem[$40:$17] := 140;
  26.  reg.ah := $4F;
  27.  intr($15,reg);
  28.  mem[$40:$17] := oldmem;
  29. end;
  30.  
  31. begin
  32.  if paramcount < 1 then
  33.  begin
  34.   Writeln(' Speed.exe (c) by Werner Schlagnitweit 2:310/3.0');
  35.   Writeln(' This Program should work on all machines which ');
  36.   Writeln(' use the CTRL-ALT-+ key to toggle the speed     ');
  37.   Writeln;
  38.   Writeln(' Usage : Speed N  For normal NON TURBO mode');
  39.   Writeln('         Speed T  For normal TURBO mode    ');
  40.   halt;
  41.  end else do_speed(paramstr(1));
  42. end.
  43.